home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh43b.d64 / multi 16 demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  50 lines
  1. 10 REM **   MUTLI 16 WRITTEN '88 BY
  2. 11 REM  *       FRANK DEINZER
  3. 12 REM  *       TANNENSTRASSE 20
  4. 13 REM  *  8505 ROETHENBACH
  5. 14 REM **
  6. 15 REM            DEMO
  7. 16 :
  8. 18 IFPEEK(52736)<>76THENLOAD"MULTI 16",8,1
  9. 19 SYS58648:SYS64789:SYS64931
  10. 20 POKE53281,.:POKE53280,.
  11. 23 FORT=12864TO13952:POKET,0:NEXT
  12. 25 BA=49152+15*256 : REM BASISADRESSE VON VIC-MULTI 16
  13. 30 V1=BA:V2=BA+3*16: REM NEUEN VIC ADRESSEN
  14. 35 Z1=BA+6*16:Z2=BA+7*16:REM SPRITEPOINTER ADRESSEN
  15. 40 SA=49152+14*256:REM STARTADRESSE
  16. 50 PRINT"[147]DIESES PROGRAMM KANN 16 SPRITES UN-"
  17. 55 PRINT"EINGESCHRAENKT ANZEIGEN (AUCH Z.B ALLE"
  18. 60 PRINT"16 NEBENEINANDER)."
  19. 65 PRINT"EINEN MOMENT BITTE":POKE56334,0:POKE1,51:PRINT""
  20. 70 FORT=0TO15:PO=201*64+T*64
  21. 75 NU$=RIGHT$("0"+RIGHT$(STR$(T+1),LEN(STR$(T+1))-1),2)
  22. 80 A1=ASC(LEFT$(NU$,1)):A2=ASC(RIGHT$(NU$,1)):PRINT"[145]"NU$
  23. 85 FORR=0TO7
  24. 90 POKEPO+R*3,PEEK(A1*8+53248+R)
  25. 95 POKEPO+R*3+1,PEEK(A2*8+53248+R)
  26. 100 NEXTR
  27. 105 NEXTT
  28. 110 POKE1,55:POKE56334,1
  29. 113 SYS SA+3:REMSTART INCL. INIT
  30. 115 PRINT"[147]JETZT WERDEN NACHEINANDER DIE 16 SPRITE"
  31. 120 PRINT"EINGESCHALTET:":FORT=0TO7:POKEZ1+T,201+T:NEXT
  32. 123 FORT=0TO7:POKEZ2+T,209+T:NEXT
  33. 125 FORT=1TO15STEP2:POKEV1+T,100:NEXT
  34. 130 A=20:FORT=0TO14STEP2:POKEV1+T,A:A=A+20:NEXT
  35. 135 FORT=1TO15STEP2:POKEV2+T,100:NEXT
  36. 140 FORT=0TO14STEP2:POKEV2+T,A:A=A+20:IFA>255THEN
  37. 145 IFA>255THENA=A-256:POKEV2+16,240
  38. 150 NEXT
  39. 155 L=0:FORT=0TO7:L=L+2^T:POKEV1+21,L
  40. 160 FORR=1TO1000:NEXTR:NEXTT
  41. 165 L=0:FORT=0TO7:L=L+2^T:POKEV2+21,L
  42. 170 FORR=1TO1000:NEXTR:NEXTT
  43. 175 FORT=1TO15STEP2:FORR=100TO200STEP1:POKEV1+T,INT(R):NEXTR,T
  44. 180 FORT=1TO15STEP2:FORR=100TO200STEP1:POKEV2+T,INT(R):NEXTR,T
  45. 190 FORT=39TO46:POKEV1+T,1:FORR=1TO300:NEXTR,T
  46. 195 FORT=39TO46:POKEV2+T,1:FORR=1TO300:NEXTR,T
  47. 200 FORT=39TO46:POKEV1+T,2:FORR=1TO300:NEXTR,T
  48. 205 FORT=39TO46:POKEV2+T,2:FORR=1TO300:NEXTR,T
  49. 210 FORT=1TO4000:NEXT:RUN
  50.